Public Class VisualizarRazonesSociales

    Dim RNVisualizarRazonesSociales As New RNCono.RazonesSociales
    Dim Cod_RS As Integer = 0
    Private Sub VisualizarRazonesSociales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim DS As New DataSet
        'DS = RNVisualizarRazonesSociales.ObtenerRazonesSociales
        DgvFiltro1.Inicializar(DS)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If DgvFiltro1.FilaSeleccionada(0).Valor <> Cod_RS Then
            DgvFiltro2.Inicializar(RNVisualizarRazonesSociales.ObtenerDomiciliosFiltradosRS(Cod_RS))
        End If
    End Sub
End Class